home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol117 / usingthe.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1986-12-15  |  26.4 KB  |  778 lines
  1. 10  REM Documentation for the Genealogy ON DISPLAY Programs
  2. 20  REM All data is in the form of DATA statements.
  3. 30  REM By:  Melvin O. Duke.  Updated January 1985.
  4. 40  DATA Genealogy
  5. 50  DATA User's Manual
  6. 60  DATA -5
  7. 70  DATA 1
  8. 80  INDENT = 0
  9. 90  DASHES$ = "+"+STRING$(54,45)+"+"
  10. 100  TRIM.LINE$ = "(Trim-line)"
  11. 110  REM Program begins here
  12. 120  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  13. 130  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  14. 140  GOSUB 500  'For trim line and heading space
  15. 150  FOR I = 1 TO 6 : LPRINT : NEXT I
  16. 160  LPRINT CHR$(14);  'Set Expanded Print
  17. 170  LPRINT TAB(TAB.POS-2);TITLE$
  18. 180  LPRINT CHR$(18);  'Return to normal
  19. 190  FOR I = 1 TO 3 : LPRINT : NEXT I
  20. 200  LPRINT CHR$(27); "E"; 'Set Emphasized mode
  21. 210  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  22. 220  LPRINT CHR$(27); "F"; 'Return to normal
  23. 222  LPRINT : LPRINT : LPRINT
  24. 224  LPRINT TAB(TAB.POS+11);"Version 3.0"
  25. 230  FOR I = 1 TO 11 : LPRINT : NEXT I
  26. 240  LPRINT TAB(TAB.POS+10); DOC.NAME$
  27. 250  LINE.NO = LINE.NO + 27
  28. 260  '
  29. 270  READ REPLY$
  30. 280  IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
  31. 290  IF LINE.NO > 44 THEN GOSUB 610
  32. 300  REM Print the line if not a command
  33. 303  REM First, change tildes to quotes
  34. 304  FOR Q = 1 TO LEN(REPLY$)
  35. 305   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  36. 306  NEXT Q
  37. 310  LPRINT TAB(TAB.POS);REPLY$
  38. 320  LINE.NO = LINE.NO + 1
  39. 330  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  40. 340  GOTO 270
  41. 350  REM Data for the Copyright Page
  42. 354  DATA ".pa"
  43. 358  DATA "Anyone may request a copy of these"
  44. 362  DATA "programs by sending a blank, double-"
  45. 366  DATA "sided, double-density diskette to the"
  46. 370  DATA "author of the programs."
  47. 378  DATA ".sp"
  48. 382  DATA "An addressed, postage-paid return"
  49. 386  DATA "mailer must accompany the diskette (no"
  50. 390  DATA "exceptions, please).
  51. 394  DATA ".sp"
  52. 398  DATA "A copy of the programs with documenta-"
  53. 402  DATA "tion will be sent by return mail."
  54. 410  DATA ".vt 2"
  55. 415  DATA "Users are encouraged to copy and share"
  56. 420  DATA "the programs with others."
  57. 430  DATA ".vt 6"
  58. 434  DATA "If you are using these programs, and"
  59. 438  DATA "finding them of value, your contribution"
  60. 442  DATA "($35 suggested) will be anticipated."
  61. 446  DATA ".sp"
  62. 450  DATA "Melvin O. Duke"
  63. 454  DATA "P. O. Box 20836"
  64. 458  DATA "San Jose, CA  95160"
  65. 462  DATA ".vt 4"
  66. 466  DATA "Copyright (c) 1983, 1984, 1985, by:"
  67. 470  DATA "Melvin O. Duke."
  68. 474  DATA ".sp"
  69. 478  DATA "All rights reserved."
  70. 482  '
  71. 500  REM Top of each page routine
  72. 510  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  73. 520  LPRINT
  74. 530  LPRINT TAB(30); TRIM.LINE$
  75. 540  LPRINT DASHES$ 'Dashes
  76. 550  FOR I = 1 TO 6
  77. 560   LPRINT
  78. 570  NEXT I
  79. 580  LINE.NO = LINE.NO + 6
  80. 590  RETURN
  81. 600  '
  82. 610  REM Bottom of each page Routine
  83. 620  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
  84. 630  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  85. 640  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 3.0" 'on line 47
  86. 650  IF PAGE.NO MOD 2 = 1 THEN 690
  87. 660  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 670  LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 680  GOTO 740
  90. 690  LPRINT TAB(TAB.POS); "User's Manual";
  91. 700  IF PAGE.NO < 10 THEN DELTA = 34
  92. 710  IF PAGE.NO >  9 THEN DELTA = 33
  93. 720  IF PAGE.NO > 99 THEN DELTA = 32
  94. 730  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  95. 740  LPRINT : LPRINT : LPRINT
  96. 750  LPRINT DASHES$ 'dashes after 51
  97. 760  LPRINT TAB(30); TRIM.LINE$
  98. 770  LPRINT CHR$(12);
  99. 780  PAGE.NO = PAGE.NO + 1
  100. 790  LINE.NO = 1
  101. 800  IF REPLY$ = ".eof" THEN 820  'Bypass after last page
  102. 810  GOSUB 500  'For top of next page
  103. 820  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  104. 830  RETURN
  105. 840  '
  106. 850  REM Command Processor
  107. 860  IF LEFT$(REPLY$,3) = ".h1" THEN 960
  108. 870  IF LEFT$(REPLY$,3) = ".h2" THEN 1100
  109. 880  IF LEFT$(REPLY$,3) = ".h3" THEN 1210
  110. 890  IF LEFT$(REPLY$,3) = ".sp" THEN 1320
  111. 900  IF LEFT$(REPLY$,4) = ".eof" THEN 1370
  112. 910  IF LEFT$(REPLY$,3) = ".pa" THEN 1410
  113. 915  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 920  IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  115. 930  IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  116. 940  IF LEFT$(REPLY$,3) = ".in" THEN 1720
  117. 950  STOP
  118. 960  REM Head 1 Processor
  119. 970  FOR I = LINE.NO TO 44
  120. 980   LPRINT
  121. 990  NEXT I
  122. 1000  GOSUB 610  'Bottom of page Routine
  123. 1010  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  124. 1020  LPRINT CHR$(14);  'Set expanded print
  125. 1030  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  126. 1040  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  127. 1050  LPRINT CHR$(18);  'Return to normal
  128. 1060  LINE.NO = LINE.NO+1
  129. 1070  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1080  RETURN
  131. 1090  '
  132. 1100  REM Head 2 Processor
  133. 1110  IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  134. 1120  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1130  LPRINT CHR$(27); "E"; 'Set emphasized print
  136. 1140  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1150  LPRINT CHR$(27); "F"; 'Return to normal
  138. 1160  LPRINT
  139. 1170  LINE.NO = LINE.NO + 2
  140. 1180  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1190  RETURN
  142. 1200  '
  143. 1210  REM Head 3 Processor
  144. 1220  IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  145. 1230  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1240  LPRINT CHR$(27); "E"; 'Set emphasized print
  147. 1250  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1260  LPRINT CHR$(27); "F"; 'Return to normal
  149. 1270  LPRINT
  150. 1280  LINE.NO = LINE.NO + 2
  151. 1290  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1300  RETURN
  153. 1310  '
  154. 1320  REM Single Space Processor
  155. 1330  IF LINE.NO = 7 THEN 1350
  156. 1340  IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1350  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1360  RETURN
  159. 1370  REM End of File Processor
  160. 1380  GOSUB 1410 'Bottom of Page
  161. 1390  LPRINT CHR$(12);
  162. 1400  GOTO 7790
  163. 1410  REM Page Eject Processor
  164. 1420  FOR I = LINE.NO TO 44
  165. 1430   LPRINT
  166. 1440   LINE.NO = LINE.NO + 1
  167. 1450  NEXT I
  168. 1460  GOSUB 610  'Bottom of Page Processing
  169. 1470  RETURN
  170. 1480  REM Vertical Tab Processor
  171. 1490  IF LINE.NO = 7 THEN 1580
  172. 1500  IF LINE.NO > 44 THEN GOSUB 610  'End of page
  173. 1510  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  174. 1520  FOR I = 1 TO QTY
  175. 1530   LPRINT
  176. 1540   LINE.NO = LINE.NO + 1
  177. 1550   IF LINE.NO > 44 THEN I = QTY
  178. 1560  NEXT I
  179. 1570  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 1580  RETURN
  181. 1590  REM Pack Processor
  182. 1600  IF LINE.NO > 44 THEN GOSUB 610
  183. 1610  IF TAB.POS = 8 THEN ADJUST = 4
  184. 1620  IF TAB.POS = 13 THEN ADJUST = 7
  185. 1630  TAB.POS = TAB.POS + ADJUST + INDENT
  186. 1640  LPRINT CHR$(15); 'Packed printing
  187. 1650  WIDTH "lpt1:", 132 'set condensed width
  188. 1660  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  189. 1670  LPRINT CHR$(18); 'Return to normal
  190. 1680  WIDTH "lpt1:", 80  'return to normal
  191. 1690  LINE.NO = LINE.NO + 1
  192. 1700  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  193. 1710  RETURN
  194. 1720  REM Indent Processor
  195. 1730  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  196. 1740  RETURN
  197. 2000  DATA ".h1 USING THE PROGRAMS"
  198. 2010  DATA ".pn 23"
  199. 2020  DATA ".h2 GETTING STARTED"
  200. 2030  DATA "The user should perform the following"
  201. 2040  DATA "steps in starting the Genealogy ON"
  202. 2050  DATA "DISPLAY programs.  (Note: The steps"
  203. 2060  DATA "essentially provide for making BASIC"
  204. 2070  DATA "available, and starting the menu.)"
  205. 2080  DATA ".sp
  206. 2090  DATA "1.  Insert the PC DOS diskette into"
  207. 2100  DATA "    Drive 'a:'."
  208. 2110  DATA ".sp
  209. 2120  DATA "2.  If using the PCjr, insert the"
  210. 2130  DATA "    BASIC Cartridge into either slot."
  211. 2140  DATA ".sp
  212. 2150  DATA "3.  Turn the Printer On."
  213. 2160  DATA ".sp"
  214. 2170  DATA "4.  Turn the System On."
  215. 2180  DATA ".sp"
  216. 2190  DATA "5.  Type today's date if the system"
  217. 2200  DATA "    asks the user to Enter today's date."
  218. 2210  DATA ".sp"
  219. 2220  DATA "6.  Type the correct time if the system"
  220. 2230  DATA "    asks the user to Enter the time."
  221. 2240  DATA ".sp"
  222. 2250  DATA "7.  Type: basic/s:256"
  223. 2260  DATA "          and press the enter key."
  224. 2270  DATA ".sp"
  225. 2280  DATA "Note:  The /s:256 is essential, in order"
  226. 2290  DATA "to use files whose records are as long"
  227. 2300  DATA "as those of Genealogy ON DISPLAY."
  228. 2310  DATA ".pa"
  229. 2320  DATA "Without the /s:256 the MENU program"
  230. 2330  DATA "gives an error message when it tries"
  231. 2340  DATA "to use the testfile (which has one"
  232. 2350  DATA "record which is 256 characters long)."
  233. 2360  DATA "The program is terminated, and it is"
  234. 2370  DATA "necessary to go back to DOS and to"
  235. 2380  DATA "bring up BASIC with /s:256."
  236. 2390  DATA ".sp"
  237. 2400  DATA "8.  Replace the DOS Diskette with the"
  238. 2410  DATA "    Genealogy ON DISPLAY diskette in"
  239. 2420  DATA "    Drive 'a:'."
  240. 2430  DATA ".sp"
  241. 2440  DATA "9.  Type: run ~menu~"
  242. 2450  DATA "           and press the enter key."
  243. 2460  DATA ".sp"
  244. 2470  DATA "10.  Follow any instructions which"
  245. 2480  DATA "     appear at the bottom of each"
  246. 2485  DATA "     screen."
  247. 2490  DATA ".pa"
  248. 2500  DATA ".h2 FIRST TIME USAGE"
  249. 2510  DATA ".h3 Backing up the Distribution Diskette"
  250. 2520  DATA "Good procedures indicate that upon"
  251. 2530  DATA "receipt of any program or programs, it"
  252. 2540  DATA "is highly desirable for you to make"
  253. 2550  DATA "back-up copies for your own protection."
  254. 2560  DATA "Such is surely the case with the"
  255. 2570  DATA "Genealogy ON DISPLAY programs."
  256. 2580  DATA ".h3 Preparing a New Data Diskette"
  257. 2590  DATA "Begin with a formatted diskette,"
  258. 2600  DATA "which was formatted without including"
  259. 2610  DATA "DOS (no /s).
  260. 2620  DATA ".sp"
  261. 2630  DATA "If you do not have one available,"
  262. 2640  DATA "it will be necessary to format one."
  263. 2650  DATA "Refer to FORMAT Command in the DOS"
  264. 2660  DATA "Manual."
  265. 2670  DATA ".pa"
  266. 2680  DATA ".h3 Copying the Testfile Data File"
  267. 2690  DATA "The testfile must be copied to the data"
  268. 2700  DATA "diskette, so that it will be available"
  269. 2710  DATA "for testing the /s:256 parameter when-"
  270. 2720  DATA "ever the Genealogy Programs are used."
  271. 2730  DATA "(See the DOS Manual for details on the"
  272. 2740  DATA "use of the COPY Command.)"
  273. 2750  DATA ".sp"
  274. 2760  DATA "Copy the testfile to the Data Diskette"
  275. 2770  DATA "with the following:"
  276. 2780  DATA ".sp"
  277. 2790  DATA "1.  Bring up DOS (but not BASIC)."
  278. 2800  DATA ".sp"
  279. 2810  DATA "2.  Insert the Program Diskette in"
  280. 2820  DATA "      Drive 'a:' (and the Data Diskette"
  281. 2830  DATA "      in drive 'b:' if you have one)."
  282. 2840  DATA ".sp"
  283. 2850  DATA "3.  Type:  copy a:testfile b:"
  284. 2860  DATA "      and press the enter key."
  285. 2870  DATA ".sp"
  286. 2880  DATA "4.  On a one-drive system, replace the"
  287. 2890  DATA "      Program Diskette with the Data"
  288. 2900  DATA "      Diskette when asked to do so,"
  289. 2910  DATA "      and press the enter key."
  290. 2920  DATA ".pa"
  291. 2930  DATA ".h3 Copying the Menu Program"
  292. 2940  DATA "The Menu program must be copied to the"
  293. 2950  DATA "data diskette, so that it will be"
  294. 2960  DATA "available whenever any of the individual"
  295. 2970  DATA "programs are completed."
  296. 2980  DATA ".sp"
  297. 2990  DATA "Copy the Menu Program to the Data"
  298. 3000  DATA "diskette with the following:"
  299. 3010  DATA ".sp"
  300. 3020  DATA "1.  Bring up DOS and BASIC in the"
  301. 3030  DATA "    normal manner."
  302. 3040  DATA ".sp"
  303. 3050  DATA "2.  Insert the Program Diskette in"
  304. 3060  DATA "      Drive 'a:'."
  305. 3070  DATA ".sp"
  306. 3080  DATA "3.  Type:  load ~menu~"
  307. 3090  DATA "      and press the enter key."
  308. 3100  DATA ".sp"
  309. 3110  DATA "4.  Replace the Program Diskette with"
  310. 3120  DATA "      the Data Diskette (which was newly"
  311. 3130  DATA "      formatted) in Drive 'a:'."
  312. 3140  DATA ".sp"
  313. 3150  DATA "5.  Type:  save ~menu~"
  314. 3160  DATA "      and press the enter key."
  315. 3170  DATA ".pa"
  316. 3180  DATA ".h3 Creating the Data Files"
  317. 3190  DATA "Assuming that the menu program has just"
  318. 3200  DATA "been saved from the previous step (if it"
  319. 3210  DATA "has not, bring up DOS and BASIC, have the"
  320. 3220  DATA "Program Diskette in place, and type:"
  321. 3230  DATA "load ~menu~ and press the enter key."
  322. 3240  DATA "Then,) type:"
  323. 3250  DATA ".sp"
  324. 3260  DATA "  run"
  325. 3270  DATA "    and press the enter key."
  326. 3280  DATA ".sp"
  327. 3290  DATA "Follow any directions which appear at"
  328. 3300  DATA "the bottom of the screen, which will show"
  329. 3310  DATA "you which diskette to have in place in"
  330. 3320  DATA "Drive 'a:'."
  331. 3330  DATA ".sp"
  332. 3340  DATA "When the menu is displayed, select the"
  333. 3350  DATA "'creatper' program by typing:"
  334. 3360  DATA ".sp"
  335. 3370  DATA "  1"
  336. 3380  DATA "    and press the enter key."
  337. 3390  DATA ".sp"
  338. 3400  DATA "This will cause the creation of a Persons"
  339. 3410  DATA "File, which will contain 500 'empty'"
  340. 3420  DATA "records, into which you will shortly be"
  341. 3430  DATA "entering data about the persons on your"
  342. 3440  DATA "list."
  343. 3450  DATA ".sp"
  344. 3460  DATA "Next, select the 'creatmar' program, by"
  345. 3470  DATA "typing:"
  346. 3480  DATA ".sp"
  347. 3490  DATA "  2"
  348. 3500  DATA "    and press the enter key."
  349. 3510  DATA ".pa"
  350. 3520  DATA "This will cause the creation of a"
  351. 3530  DATA "Marriages File, which will contain 200"
  352. 3540  DATA "'empty' records, into which you will"
  353. 3550  DATA "shortly be entering data about the"
  354. 3560  DATA "marriages on your list."
  355. 3570  DATA ".sp"
  356. 3580  DATA "Finally, select the 'creatord' program,"
  357. 3590  DATA "by typing:"
  358. 3600  DATA ".sp"
  359. 3610  DATA "  3"
  360. 3620  DATA "    and press the enter key."
  361. 3630  DATA ".sp"
  362. 3640  DATA "This will cause the creation of the"
  363. 3650  DATA "Ordinances File, which will contain"
  364. 3660  DATA "500 'empty' records, into which you"
  365. 3670  DATA "will shortly be entering data about"
  366. 3680  DATA "ordinances for the people on your list."
  367. 3690  DATA ".h3 Caution
  368. 3700  DATA "A word of extreme caution:  Once you"
  369. 3710  DATA "have run the 'creatper' program, the"
  370. 3720  DATA "'creatmar' program, and the 'creatord'"
  371. 3730  DATA "programs, you do NOT, repeat NOT, want"
  372. 3740  DATA "to run them again (at least not"
  373. 3750  DATA "against the same files)."
  374. 3760  DATA ".sp"
  375. 3770  DATA "To do so would mean that you would"
  376. 3780  DATA "wipe-out any previous data that was in"
  377. 3790  DATA "the files at the time that you ran the"
  378. 3800  DATA "programs again."
  379. 3810  DATA ".pa"
  380. 3820  DATA ".h2 HOW TO OPERATE."
  381. 3830  DATA ".h3 Selecting an individual program.
  382. 3840  DATA "Individual programs, which perform"
  383. 3850  DATA "individual functions, are selected by"
  384. 3860  DATA "the user through the use of a menu."
  385. 3870  DATA ".sp"
  386. 3880  DATA "Begin by bringing up DOS and BASIC in"
  387. 3890  DATA "a normal manner.  Have the Program"
  388. 3900  DATA "Diskette in place.  Then type:"
  389. 3910  DATA ".sp"
  390. 3920  DATA "  run ~menu~"
  391. 3930  DATA "    and press the enter key."
  392. 3940  DATA ".sp"
  393. 3950  DATA "Following a logo on the screen, there"
  394. 3960  DATA "will appear a menu, which numbers the"
  395. 3970  DATA "individual programs, identifies their"
  396. 3980  DATA "names, and describes their functions."
  397. 3990  DATA ".sp"
  398. 4000  DATA "A user selects the individual program"
  399. 4010  DATA "which he desires by typing a number,"
  400. 4020  DATA "and then he presses the enter key.  The"
  401. 4030  DATA "program which he selected is then loaded"
  402. 4040  DATA "and run."
  403. 4050  DATA ".pa"
  404. 4060  DATA ".h3 Operating the updatper program."
  405. 4070  DATA "After selecting the updatper program,"
  406. 4080  DATA "the user should make sure that the data"
  407. 4090  DATA "diskette is in Drive 'a:'.  He should"
  408. 4100  DATA "then press any key to continue."
  409. 4110  DATA ".sp"
  410. 4120  DATA "After the logo is displayed, the user"
  411. 4130  DATA "is asked which record he wants to up-"
  412. 4140  DATA "date.  He should respond with a valid"
  413. 4150  DATA "number in the range of 1 to 500."
  414. 4160  DATA ".sp"
  415. 4170  DATA "(Note:  If you just want to find an"
  416. 4180  DATA "unused record, you may type a question-"
  417. 4190  DATA "mark.  A search will be made from the"
  418. 4200  DATA "the beginning of the file, or from the"
  419. 4210  DATA "last record which you referenced, until"
  420. 4220  DATA "an unused record is found, or the top"
  421. 4230  DATA "of the file is reached.)"
  422. 4240  DATA ".sp"
  423. 4250  DATA "The current content of the record is"
  424. 4260  DATA "shown.  If the record has never been"
  425. 4270  DATA "used, the record-number shown will be"
  426. 4280  DATA "negative.  As long as this number is"
  427. 4290  DATA "negative, it will be bypassed for any"
  428. 4300  DATA "further processing.  The user should"
  429. 4310  DATA "enter the record-number."
  430. 4320  DATA ".sp"
  431. 4330  DATA "The user is prompted for input.  He may"
  432. 4340  DATA "bypass any field by pressing the enter"
  433. 4350  DATA "key.  He may also bypass all remaining"
  434. 4360  DATA "fields by typing / and then pressing"
  435. 4370  DATA "the enter key."
  436. 4380  DATA ".sp"
  437. 4390  DATA "Note:  Dates should be entered as:"
  438. 4400  DATA "dd Mmm yyyy, such as: 06 Jan 1943."
  439. 4410  DATA ".pa"
  440. 4420  DATA "When finished with his updating, he is"
  441. 4430  DATA "asked to indicate what he wants to do"
  442. 4440  DATA "with the record.  He may either 'save'"
  443. 4450  DATA "it, he may 'forget' it, or he may make"
  444. 4460  DATA "'more' changes to the record.  As soon"
  445. 4470  DATA "as he says 'save', the record is saved"
  446. 4480  DATA "and he is once more prompted about the"
  447. 4490  DATA "next record to update."
  448. 4500  DATA ".sp"
  449. 4510  DATA "When he is through, he should indicate"
  450. 4520  DATA "that he wants to update record 0."
  451. 4530  DATA ".pa"
  452. 4540  DATA ".h3 Operating the updatmar program."
  453. 4550  DATA "After selecting the updatmar program,"
  454. 4560  DATA "the user should make sure that the"
  455. 4570  DATA "data diskette is in Drive 'a:'.  He"
  456. 4580  DATA "should then press any key to continue."
  457. 4590  DATA ".sp"
  458. 4600  DATA "After the logo is displayed, the user"
  459. 4610  DATA "is asked which record he wants to up-"
  460. 4620  DATA "date.  He should respond with a valid"
  461. 4630  DATA "number in the range of 1 to 200."
  462. 4640  DATA ".sp"
  463. 4650  DATA "(Note:  If you just want to find an"
  464. 4660  DATA "unused record, you may type a question-"
  465. 4670  DATA "mark.  A search will be made from the"
  466. 4680  DATA "the beginning of the file, or from the"
  467. 4690  DATA "last record which you referenced, until"
  468. 4700  DATA "an unused record is found, or the top"
  469. 4710  DATA "of the file is reached.)"
  470. 4720  DATA ".sp"
  471. 4730  DATA "The current content of the record is"
  472. 4740  DATA "shown.  If the record has never been"
  473. 4750  DATA "used, the record-number shown will be"
  474. 4760  DATA "negative.  As long as this number is"
  475. 4770  DATA "negative, it will be bypassed for any"
  476. 4780  DATA "further processing.  The user should"
  477. 4790  DATA "enter the record-number."
  478. 4800  DATA ".sp"
  479. 4810  DATA "The user is prompted for input.  He may"
  480. 4820  DATA "bypass any field by pressing the enter"
  481. 4830  DATA "key.  He may also bypass all remaining"
  482. 4840  DATA "fields by typing / and then pressing"
  483. 4850  DATA "the enter key."
  484. 4860  DATA ".pa"
  485. 4870  DATA "When finished with his updating, he is"
  486. 4880  DATA "asked to indicate what he wants to do"
  487. 4890  DATA "with the record.  He may either 'save'"
  488. 4900  DATA "it, he may 'forget' it, or he may make"
  489. 4910  DATA "'more' changes to the record.  As soon"
  490. 4920  DATA "as he says 'save', the record is saved"
  491. 4930  DATA "and he is once more prompted about the"
  492. 4940  DATA "next record to update."
  493. 4950  DATA ".sp"
  494. 4960  DATA "When he is through, he should indicate"
  495. 4970  DATA "that he wants to update record 0."
  496. 4980  DATA ".pa"
  497. 4990  DATA ".h2 Operating the updatord program."
  498. 5000  DATA "After selecting the updatord program,"
  499. 5010  DATA "the user should make sure that the data"
  500. 5020  DATA "diskette is in Drive 'a:'.  He should"
  501. 5030  DATA "then press any key to continue."
  502. 5040  DATA ".sp"
  503. 5050  DATA "After the logo is displayed, the user"
  504. 5060  DATA "is asked which record he wants to up-"
  505. 5070  DATA "date.  He should respond with a valid"
  506. 5080  DATA "number in the range of 1 to 500."
  507. 5090  DATA ".sp"
  508. 5100  DATA "(Note:  You cannot search for an unused"
  509. 5110  DATA "ordinances record, since it is always"
  510. 5120  DATA "associated with a person's record.)"
  511. 5130  DATA ".sp"
  512. 5140  DATA "The user is prompted for input.  He may"
  513. 5150  DATA "bypass any field by pressing the enter"
  514. 5160  DATA "key.  He may also bypass all remaining"
  515. 5170  DATA "fields by typing / and then pressing"
  516. 5180  DATA "the enter key."
  517. 5190  DATA ".sp"
  518. 5200  DATA "Dates should be entered as: dd Mmm yyyy,"
  519. 5210  DATA "such as:  05 Aug 1922."
  520. 5220  DATA ".sp"
  521. 5230  DATA "When finished with his updating, he is"
  522. 5240  DATA "asked to indicate what he wants to do"
  523. 5250  DATA "with the record.  He may either 'save'"
  524. 5260  DATA "it, he may 'forget' it, or he may make"
  525. 5270  DATA "'more' changes to the record.  As soon"
  526. 5280  DATA "as he says 'save', the record is saved"
  527. 5290  DATA "and he is once more prompted about the"
  528. 5300  DATA "next record to update."
  529. 5310  DATA ".sp"
  530. 5320  DATA "When he is through, he should indicate"
  531. 5330  DATA "that he wants to update record 0."
  532. 5340  DATA ".pa"
  533. 5350  DATA ".h3 Operating the indexpc program."
  534. 5360  DATA "The 'indexpc' program is fundamental to"
  535. 5370  DATA "the creation of a parent/child index,"
  536. 5380  DATA "which associates parents with their"
  537. 5390  DATA "children."
  538. 5400  DATA ".sp"
  539. 5410  DATA "It should be run after any additions"
  540. 5420  DATA "of persons to the Persons File, when-"
  541. 5430  DATA "ever birthdates are added or changed,"
  542. 5440  DATA "or when identification of parents have"
  543. 5450  DATA "been added or changed."
  544. 5460  DATA ".sp"
  545. 5470  DATA "Select the 'indexpc' program, and make"
  546. 5480  DATA "sure that the data diskette is in"
  547. 5490  DATA "Drive 'a:'.  Then press any key to"
  548. 5500  DATA "continue."
  549. 5510  DATA ".sp"
  550. 5520  DATA "A file named 'pcindex' will be created"
  551. 5530  DATA "on the data diskette on Drive 'a:'."
  552. 5540  DATA ".pa"
  553. 5550  DATA ".h3 Operating the indexmar program."
  554. 5560  DATA "The 'indexmar' program is fundamental"
  555. 5570  DATA "to the creation of a marriages index,"
  556. 5580  DATA "which associates spouses with each"
  557. 5590  DATA "other."
  558. 5600  DATA ".sp"
  559. 5610  DATA "It should be run after marriages are"
  560. 5620  DATA "added to the Marriages File, whenever"
  561. 5630  DATA "marriage-dates are added or changed,"
  562. 5640  DATA "or whenever changes are made which re-"
  563. 5650  DATA "identify spouses."
  564. 5660  DATA ".sp"
  565. 5670  DATA "Select the 'indexmar' program, and make"
  566. 5680  DATA "sure that the data diskette is in"
  567. 5690  DATA "Drive 'a:'.  Then press any key to"
  568. 5700  DATA "continue."
  569. 5710  DATA ".sp"
  570. 5720  DATA "A data file named 'mindex' will be"
  571. 5730  DATA "created on the data diskette in Drive"
  572. 5740  DATA "'a:'."
  573. 5750  DATA ".pa"
  574. 5760  DATA ".h3 Operating the display program."
  575. 5770  DATA "Before running the display program,"
  576. 5780  DATA "the user should know that any changes"
  577. 5790  DATA "that he has made to the data files may"
  578. 5800  DATA "have made his indexes out-of-date."
  579. 5810  DATA "This will have happened if the user"
  580. 5820  DATA "has entered a new person, a new"
  581. 5830  DATA "marriage, a new relationship (such as"
  582. 5840  DATA "a reference to a parent), a new"
  583. 5850  DATA "birth-date, a new marriage-date, or"
  584. 5860  DATA "a new Name."
  585. 5870  DATA ".sp"
  586. 5880  DATA "The indexes are still correct if the"
  587. 5890  DATA "user has entered new death-dates,"
  588. 5900  DATA "burial-dates, or any information about"
  589. 5910  DATA "locations (cities, counties, states)"
  590. 5920  DATA "of births, deaths, ordinances, etc."
  591. 5930  DATA ".sp"
  592. 5940  DATA "If the indexes are out-of-date, the"
  593. 5950  DATA "user should update them before running"
  594. 5960  DATA "the 'display' program, by running the"
  595. 5970  DATA "'indexper' and 'indexmar' programs."
  596. 5980  DATA ".sp"
  597. 5990  DATA "After selecting the 'display' program,"
  598. 6000  DATA "the user should make sure that the Data"
  599. 6010  DATA "Diskette is in Drive 'a:'.  He should"
  600. 6020  DATA "then press any key to continue."
  601. 6030  DATA ".sp"
  602. 6040  DATA "After the logo is displayed, the user"
  603. 6050  DATA "is asked for the record-number of the"
  604. 6060  DATA "person that he wants to locate.  He"
  605. 6070  DATA "should enter a number which he knows to"
  606. 6080  DATA "be valid."
  607. 6090  DATA ".pa"
  608. 6100  DATA "The personal information about that"
  609. 6110  DATA "person will then be shown on the display."
  610. 6120  DATA ".sp"
  611. 6130  DATA "The user may then enter 'ps' (print"
  612. 6140  DATA "the screen), he may enter 'pc' (for a"
  613. 6150  DATA "pedigree chart), he may enter 'fg' (for"
  614. 6160  DATA "a family group), he may enter 'o' (for"
  615. 6170  DATA "ordinance information), he may enter 'p'"
  616. 6180  DATA "followed by a valid number (requesting"
  617. 6190  DATA "information about a person), he may enter"
  618. 6200  DATA "'m' followed by a valid number (requesting"
  619. 6210  DATA "information about a marriage), or he may"
  620. 6220  DATA "enter 'q' (asking to quit)."
  621. 6230  DATA ".sp"
  622. 6240  DATA "When the pedigree information appears,"
  623. 6250  DATA "the user may then enter 'ps' (print the"
  624. 6260  DATA "screen, he may enter 'fg' (requesting"
  625. 6270  DATA "a family group), he may enter 'pc'"
  626. 6280  DATA "(asking that the pedigree chart be"
  627. 6290  DATA "re-drawn), he may enter 'l' followed by"
  628. 6300  DATA "a valid number (requesting personal"
  629. 6310  DATA "information about a person on the stated"
  630. 6320  DATA "line), he may enter 'm' followed by a"
  631. 6330  DATA "valid number (requesting information"
  632. 6340  DATA "about a marriage), or he may enter 'q'"
  633. 6350  DATA "(asking to quit)."
  634. 6360  DATA ".pa"
  635. 6370  DATA "When the family group information appears,"
  636. 6380  DATA "the user may enter 'ps' (print the"
  637. 6390  DATA "screen), he may enter 'f' (asking for the"
  638. 6400  DATA "father), he may enter 'm' (asking for the"
  639. 6410  DATA "mother), he may enter 'p' followed by a"
  640. 6420  DATA "valid number (asking for about a person),"
  641. 6430  DATA "he may enter 'c' followed by a valid"
  642. 6440  DATA "number (asking for information about a"
  643. 6450  DATA "child), he may enter 'm' followed by a"
  644. 6460  DATA "valid number (requesting information"
  645. 6470  DATA "about a marriage, or he may enter 'q'"
  646. 6480  DATA "(asking to quit)."
  647. 6490  DATA ".sp"
  648. 6500  DATA "When the ordinance information appears,"
  649. 6510  DATA "The user may then enter 'ps' (print"
  650. 6520  DATA "the screen), he may enter 'pc' (for a"
  651. 6530  DATA "pedigree chart), he may enter 'fg' (for"
  652. 6540  DATA "a family group), he may enter 'o' (for"
  653. 6550  DATA "ordinance information), he may enter 'p'"
  654. 6560  DATA "followed by a valid number (requesting"
  655. 6570  DATA "information about a person), he may enter"
  656. 6580  DATA "'m' followed by a valid number (requesting"
  657. 6590  DATA "information about a marriage), or he may"
  658. 6600  DATA "enter 'q' (asking to quit)."
  659. 6610  DATA ".pa"
  660. 6620  DATA ".h2 Operating the Pedigree Program"
  661. 6630  DATA "After selecting the 'pedigree' program,"
  662. 6640  DATA "the user should make sure that the"
  663. 6650  DATA "data diskette is in Drive 'a:'.  He"
  664. 6660  DATA "should then press any key to continue."
  665. 6670  DATA ".sp"
  666. 6680  DATA "He should then follow any instructions"
  667. 6690  DATA "which appear at the bottom of the display."
  668. 6700  DATA ".sp"
  669. 6710  DATA "Note:  The pedigree program was designed"
  670. 6720  DATA "to use a form which is Copyrighted, 1966,"
  671. 6730  DATA "The Genealogical Society of the Church of"
  672. 6740  DATA "Jesus Christ of Latter Day Saints, Inc."
  673. 6750  DATA "Stock #GA-054"
  674. 6760  DATA ".sp"
  675. 6770  DATA "If such a form is not available, the"
  676. 6780  DATA "pedigree chart can be printed on any"
  677. 6790  DATA "available printer paper."
  678. 6800  DATA ".pa"
  679. 6810  DATA ".h2 Operating the Family Program"
  680. 6820  DATA "After selecting the 'family' program,"
  681. 6830  DATA "the user should make sure that the"
  682. 6840  DATA "data diskette is in Drive 'a:'.  He"
  683. 6850  DATA "should then press any key to continue."
  684. 6860  DATA ".sp"
  685. 6870  DATA "He should then follow any instructions"
  686. 6880  DATA "which appear at the bottom of the"
  687. 6890  DATA "display."
  688. 6900  DATA ".sp"
  689. 6910  DATA "Note:  The family program was designed"
  690. 6920  DATA "to use a Family Group Record form, which"
  691. 6930  DATA "was copyrighted 1972 by the Genealogical"
  692. 6940  DATA "Society of the Church of Jesus Christ of"
  693. 6950  DATA "Latter Day Saints, Inc.  Stock #GA-032."
  694. 6960  DATA ".sp"
  695. 6970  DATA "If such a form is not available, the"
  696. 6980  DATA "family group can be printed on any"
  697. 6990  DATA "available printer paper."
  698. 7000  DATA ".h3 Operating the Descend Program"
  699. 7010  DATA "After selecting the 'descend' program,"
  700. 7020  DATA "the user should make sure that the"
  701. 7030  DATA "data diskette is in Drive 'a:'.  He"
  702. 7040  DATA "should then press any key to continue."
  703. 7050  DATA ".sp"
  704. 7060  DATA "He should then follow any instructions"
  705. 7070  DATA "which appear at the bottom of the"
  706. 7080  DATA "display."
  707. 7090  DATA ".pa"
  708. 7100  DATA ".h3 Operating the other programs."
  709. 7110  DATA "After selecting one of the other pro-"
  710. 7120  DATA "grams, the user should make sure that"
  711. 7130  DATA "the data diskette is in Drive 'a:'.  He"
  712. 7140  DATA "should then press any key to continue."
  713. 7150  DATA ".sp"
  714. 7160  DATA "Note:  See the Table of Contents for the"
  715. 7170  DATA "names of the other programs."
  716. 7180  DATA ".sp"
  717. 7190  DATA "After the logo is displayed, the user"
  718. 7200  DATA "observes the information that is being"
  719. 7210  DATA "shown on the display screen, and waits"
  720. 7220  DATA "for the program to complete."
  721. 7230  DATA ".pa"
  722. 7240  DATA ".h2 HOW TO STOP."
  723. 7250  DATA "The user may stop at any time, by"
  724. 7260  DATA "pressing (and holding down) the Function"
  725. 7270  DATA "(FN) key, and then pressing the Break"
  726. 7280  DATA "(B) key on the PCjr."
  727. 7290  DATA ".sp"
  728. 7300  DATA "The user may stop at any time, by"
  729. 7310  DATA "pressing (and holding down) the control"
  730. 7320  DATA "(Ctrl) key, and then pressing the Break"
  731. 7330  DATA "key on the PC, PPC, or PC/XT."
  732. 7340  DATA ".sp"
  733. 7350  DATA ".h3 Stopping the Update Programs."
  734. 7360  DATA "The user may stop one of the update"
  735. 7370  DATA "programs (updatper, updatmar, or"
  736. 7380  DATA "updatord) by requesting an update of"
  737. 7390  DATA "record 0."
  738. 7400  DATA ".h3 Stopping the Display Program."
  739. 7410  DATA "The user may stop the display program"
  740. 7420  DATA "by typing 'q' or 'quit' when he is asked"
  741. 7430  DATA "for his next action, or he may type"
  742. 7440  DATA "'p0', to request person-number 0."
  743. 7450  DATA ".h3 Stopping the Pedigree Program."
  744. 7460  DATA "The user may stop the pedigree program"
  745. 7470  DATA "by asking for a printout of the pedigree"
  746. 7480  DATA "for person-number 0."
  747. 7490  DATA ".pa"
  748. 7500  DATA ".h3 Stopping the Family Program."
  749. 7510  DATA "The user may stop the family program"
  750. 7520  DATA "by asking for a printout of the family"
  751. 7530  DATA "whose marriage-number is 0."
  752. 7540  DATA ".h3 Stopping the Descend Program."
  753. 7550  DATA "The user may stop the descend program"
  754. 7560  DATA "by asking for a printout of the person"
  755. 7570  DATA "whose person-number is 0."
  756. 7580  DATA ".h3 Stopping the Other Programs."
  757. 7590  DATA "The other programs may only be stopped"
  758. 7600  DATA "with the 'function-break' or the"
  759. 7610  DATA "'control-break' sequence, as indicated"
  760. 7620  DATA "above.  However, the user is cautioned"
  761. 7630  DATA "that if he does this while writing new"
  762. 7640  DATA "indexes to the diskette (during the"
  763. 7650  DATA "running of the 'indexpc' or 'indexmar'"
  764. 7660  DATA "programs), the index that is currently"
  765. 7670  DATA "being written may be destroyed, and"
  766. 7680  DATA "will have to be re-built before the"
  767. 7690  DATA "'display', 'pedigree', 'family', and"
  768. 7700  DATA "'alphamar' programs are run."
  769. 7710  DATA ".sp"
  770. 7720  DATA "The damaged index can be re-built by"
  771. 7730  DATA "re-running the 'indexpc' or 'indexmar'"
  772. 7740  DATA "program which was stopped with the"
  773. 7750  DATA "'function-break' or 'control-break'"
  774. 7760  DATA "sequence."
  775. 7770  DATA ".pa"
  776. 7780  DATA ".eof"
  777. 7790  END
  778.